704 FORTRAN II 



Error Halts 
in the BSS 
Loader 



Error Halt List for BSS Loader, November 28, 1958. 
Halt (Octal); Reason for Halt; Procedure; 



20 



77453 



Instructions and 
symbol table of 
Loader overlap. 

End of File in 
the card reader. 

Instructions and 
data overlap , 



Get off machine. Combination of 
program and transfer vectors too long. 
Rewrite program. 

Press START to read more cards. 



Get off machine. Combination of 
instructions and data too long. Re- 
write program. 



7755b 
77756 



(jnecK sum error, jrress bxARx to accept mrormation. 



mib 



More than 20 
subroutines are 
missing. 



Missing 
Subroutines, 



If missing subroutines are at hand, 
press START until stop at 7777 Sq is 
reached. Follow instructions (a) for 
that stop. 

This stop indicates the TRANSFER 
CARD has been reached. It is 
caused by one of two occurances; 
(a) Loading has been completed, but 
at least one of the subroutines called 
for is missing. Location 77453 con- 
tains the BCD name of the first missing 
subroutines, location 77454, the second, 
etc. If the missing subroutine (s) is 
immediately available, it may be loaded 
without . starting the entire loading pro- 
cess over again. Place another 
TRANSFER CARD (9 punch in col 1) at 
the end of the routine (s) , ready in the 
card reader, and press START, 

\u) J. lie xi\rt.i>iarjJi\ v^AKa^ cnuwuiitcicv-i 

is really a premature one that simply 
has not been withdrawn. Be certain 
that a TRANSFER CARD is the last card 
at the end of the deck and press START. 



FORTRAN SUBPROGRAM TYPES 

FoUowing is a table of FORTRAN subprogram types and 
their general characteristics. 





Open or 


Calling Se- 


Single- or Mul- 


Name 


Subprogram Type 


Closed 


quence Type 


tiple 


-Valued 


Type 


Built-in Functions 


open 


(None) 




S 


1 


Function Definition 


closed 


1 




S 1 


1 


FORTRAN I Function 


closed 


1 




S 


1 


FORTRAN II Function 


closed 


2 




S 


2 


FORTRAN II Subroutine 


closed 


2 




M 


3 




Subprogram Names 









All Types; 

a) Only the 36 alpha-numeric (non-special) characters may be used. 

b) The first character must be alphabetic. 



Type 1: 



c) 4 to 7 characters. 

d) The first character must be X if and only if the result will be 
fixed point . 

e) The last character must be F. 



Type 2: 



c) 3 to 6 characters. 

d) The first character must be I, J, K, L, M, or N if and only if 
the result will be fixed point. 

e) The last character must not be F if the total number of 
characters is 4, 5, or 6. 

Type 3: 

c) 3 to 5 characters . 

d) The last character must not be F if the total number of characters 
is 4, 5, or 6. 



CaUing Sequences 



Type 1: 



GLA 
LDQ 
TSX 



o. 



Type ii 



TSX 



TSX 



ISA 



TSX 



ARGi 



ARG2 



(If ARG2 exists) 



NAME, 4 Upon entry ARG3, if it exists, wUl be 
stored at 77775, ARG4 at 77774, etc. 



NAME , 4 Upon entry the n 

LAJIGI argument locations 

LARG2 are specified in the 

" address fields 

LARGN of the n words immediately following 
the entry word . Control returns to the 
main program at n 4 1 . 



POUGHKEEPSIE 
South Road Laboratory 
Department 535 
November 26, 1958 



Memorandum for Ail 704 Users 

Subject: FORTRAN Program Library And END Cards 



There are currently 20 library functions available for use with the Depart- 
ment 535 FORTRAN system (in addition to the twenty built-in routines). Their 
names are listed below in one of three groups according to type. The decimal 
numbers in parenthesis indicate the storage required. 



F I Functions: 




LOGF 


- (42) 


SINF 


- (91) 


GOSF 




EXPF 


- (63) 


SQRTF 


- (21) 


ATANF 


- (40) 


TANHF 


- (139) 


XRANDF 


~ (35) 


GERF 


- (28) 


LGAMF 


- (110) 



- natural logarithm 

- sine 

- cosine 

- exponential 

- square root 

- arctangent 

- hyperbolic tangent 

- PE RAND, psuedo random number generator 

- PK GERF , complementary error function 

- PK LOAM , natural log of the gamma function 



F 11 Functions: None 
F 11 Subroutines 

OFF - (9) - PE OVFL, to turn off AG and MQ overflow triggers. 

TtSi' " ft* UVJfli, lU teSU UIO HKj aiiU XVav WVOUtAV/mr i.**yy«?«o, 

SAVE 1 - (129) - EL SAVE 1 (Qi)i core save and restore. 

SAVE 2 - (148) - EL SAVE 2, core and drums save and restore, 

AIDE - (368) - GL AIDE (D2), integrator. 

LAS865 - (229) - LA S885 (F4), to solve the matrix equation AX = B. 

BESJ - (990) - NU BESl (G3), function of the first kind. 

BESI - NU BESl (G3), modified function of the first kind. 

BESY - NU BESl (G3), function of the second kind. 

BESK - NU BESl (G3), modified function of the second kind. 

OUOD - PE QUOD, EAI Dataplotter output routine. 



POUGHKEEPSIE 
South Road Laboratory 
Department 535 
October 28, 1958 



Memorandum for Mi 704 Users 

Subject: FORTRAN Program Library Addition 

Program Description; 

PE RAND - Psuedo random number generator. 
(Not distributed through SHARE) 

Example 

I = XRANDF ( MOD ) 

where MOD is a fixed point interger variable. 
A fixed point random number modulo MOD will 
be generated and stored at the location of I. 

Restriction: 

See FORTRAN fixed point constants. 



L. u. Nippe 
Dept. 535 



LON/hc 



2 - 



Names of the above programs must be used In FORTRAN statements exactly as 
listed followed by the necessary arguments. Function names should appear in 
the right hand side of arithmetic statements, and subroutine names should appear 
In CALL statements. 

Additional storage used by the input -output -convert programs in your binary deck 
is listed below. 



(DBG) 




462 


(CSH) 




137 


(TSH) 




21 


(BDC) - 


- (FID 


435 


(SCH) 




90 


(SPH) 




158 


(STH) 




12 


(RTN) - 


(LEV) 


60 


EXP(1 




34 


EXP (2 




40 


EXP (3 




113 



As you know, Sense Switch 5 controls the punching of library programs during 
compilation. With the increasing number of compilations per day, this on-line 
punCiiAuQ aS jbf@9i^i^i^9 ^^ represent a 3i9ni.ix.cant amount Oi. maciiine t.&m@* Furthermore « 
most library programs punched are redundant because the programmer already has them 
in his binary deck from a previous compilation. In order to eliminate this problem^ 
copies of all FORTRAN library programs have been placed in a card file drawer in the 
machine room. In the future, it will be appreciated if ail FORTRAN programs would 
be compiled with the following END card: 

END CX,X,2, X,0) where each X is 0, 1 , or 2 

After compilation, the programmer should refer to the last category of the second 
file of output for a list of the necessary library programs. 



L. O. Nippe 
Department 535 
LON/c 



POUGHKEBPSIE 
South Road Laboratory 
Department 535 
November 14, 1958 



Memorandum to: All 704 Users 
Subject: FORTRAN Library Addition 



Program Description: 

PK CERF - Complimentary error function (1 - probability 
integral) 
Not distributed through SHARE 

FORTRAN Usage: As a FORTRAN I Function 

Example: 

= CERFOC) 

Where X is a positive floating point argument. The 
normalized floating point value of the function will 
be stored at location of C . 



H, S. Long 
L. O- Nippe 
HSL/LON/c Department 535 



South Road Laboratory 
Dept. 535 
October 28, 1958 



Memorandum toj Ml 704 Users 

Subject: FORTRAN Program Library Addition 

Program Description: 

PK LGAM - Natural logarithm of the Gamma Function. 
(Not distributed through SHARE) 

Example 

F :s LGAMF CX) 

where X is a positive floating point argument . 
The normalised floating point value of the function 
will be stored at the location of F . 

Restriction: 

X > O . See PK LGAM write-up . 






L. u. «ippe 
Department 535 



LON/hc 



POUGHKEEPSIE 
South Road Laboratory 
Department 535 
November 25, 1958 



Memorandum for All 704 Users 

Subject: FORTRAN Program Library Addition 

Program Description: 

PE OVFL - Reset or test overflow triggers. 

FORTRAN Usage: As a FORTRAN II Subroutine 

CALL OFF - Turn off the AG and MQ overflow triggers 
and lights. 

GALL TEST - Test the status of the AC and MQ overflow 
triggers. The SR address field will contain 
2123g at stop for AC overflow and 4450q at 
stop for MO overflow. 

In order to determine the program location of the overflow^ he should 
dump memory immediately following the overflow stop and use the con- 
tents of index register 4 to trace back to the main program location. 



L. O. Nippe 
Department 535 






POUGHKEEPSIE 
South Road Laboratory 
Department 535 
October 28, 1958 



Memorandum for All 704 Users 

Subject: FORTRAN Program Library Addition 

Program Description: 

EL SAVE 1 - Save and restore cores, and 
EL SAVE 2 - Save and restore cores and drums. 
(SHARE classification Ql ) 

FORTRAN Usage: As FORTRAN II Subroutine. 

Example 

IF ( SENSE SWITCH 6 ) 101,100 

100 CALL SAVE 1 

101 (next statement of sequence) 

The above will save core storage only . SAVE 2 
should be used when it is desired to save both 
core storage and drums. 



Restrictions: 



Sense switch 6 must be used with these two subroutines. 
<ze>t» QMAPF. write~uD for details. 



L. O. Nippe 
Department 535 

LON/hc 



POUGHKEEPSIE 
South Road Laboratory 
Department 535 
October 28, 1958 



Memorandum for Aii 704 Usars 

Subject: FORTRAN Program Library Addition 

Program Description; 

LA S885 - to solve the matrix equation 

AX = B for X and to evaluate the determinant A. 

( SHARE classification F4 } 

FORTRAN Usage: As a FORTRAN U Subroutine. 
Example 

GALL LA S885 ( M, N, TEMP ( N, M ), I, DETA ) 

where M is the number of columns and N is the 
number of rows of the combined AB matrix, Temp 
( N, M ) la the first clement of the AB matrix 
stored row -wise and backwards in memory, 1 = 
means solve the equation only, I x: 1 means solve 
the equation and evaluate the determinant A, etc. , 
and DETA is the variable name assigned to the value 
of the determinant of A or its inverse. 

Restrictions: 

See SHARE write-up . 



L. O. Nippe 
Department 535 

LON/hc 



POUGHKEEPSIE 
South Road Laboratory 
Department 535 
October 28, 1958 



Memorandum for Ai.1 704 Users 

Subject: FORTRAN Program Library Addition 



Program DeaCriptlwH; 



NU BBS I " Eessel functions for real argument and order. 
(SHARE classification - C3 ) 

FORTRAN Usage: As a FORTRAN 11 Sui^outine. 

Examples 

CALL BESJ (ARG, F, N, STORE (m)) 

CALL BESI (ARG, F, N, STORE (m)) 

CALL BESY (ARG, F, N, STORE (m)) 

CALL BESK (ARG, F, N, STORE Cm)) 

where ARG is the name of the floating variable argument , 
F and N are the floating fraction and fixed integer parts 
of the Bessel function order, and STORE ( m ) is the last 
( low order ) word of an m word array. Upon return from 
the subroutine, using the function of the first kind as an 
example, Jq wUi be found at STORE ( m), J^ at STORE 
( m-1 ), etc. through Jj^ at STORE ( m-N ). 



OaatrintlnnR' 



The respective AC overflow error stops are located near the 
end of the program at BESJ"»-3, BESI+3, BESY-f3, and BESK + 3. 

This FORTRAN version will cause a program stop at BESJ4 61 g 



-2- 



October 28, 1958 



If any entry is attempted with Arg>^50. 

See the NU BESl write-up far the minimum size of the 
STORE array. 



L. O. Nippe 
Department 535 



T /-» xr /V» «. 



MASTER IBM CAR^AYOUT 



FORTRAN RELOCATABLE BINARY INSTRUCTION OR DATA CARD 



000 

I 1 1 

222 
333 
444 



Left 
Decrement 

rOOQOOOOQOOOODriOOO 



I S S 7 I i10ni?n]4lSII17lll9 2g]12223»S26272l2830 313233343Sl37383l4O41424344«4l47 4»«S0S1S2S3MS5SS9;7SI9IIQI1Ci3Meill7M«7O7t!73 74 757inil7IM 



111111111111111111 

n 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
333333333333333333 



666166 6666 6 666 6 6 6^666 
First , 



5 5 5 5 5 5 S S 5 5 5 5 5 5 5 5 S 5 5 5 !i 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 



7 7 7 r 7 7 ? 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 



Left 
Addreat 

Ql 



111111111111111 
222222222222222 
33 333 333333 3333 



14444444444444444 4 444444444 4 44444444 



6 6 6 6 6 6 6 6 6 6 6 6 6 6 61 
"Word 






000 



1 1 1 
222 
333 



555 
666 
777 



Right 
Decrement 







111111111111111 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
44444444 4 444444 
55555555 5 555555 

6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 

Second 

7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 



Right 
Address 







1 1 1 

2 22 
333 
44 4 

555 



11111111111111 11111111 
222 222222 22222 22 22 22 22 
33333333333333 33333333 
4444444444444 4 44444 4 44 
55555555555555155555555 



60000000 



6 6 i6|6 6 6 6 6 6 6 6 6 6 6 6 6 6 I 6 6 6 6 6 6 6 6 

"Word 

7 7717 77777 777 77 7771 7 7 7 7 7 7 7 7 



Relocation indicators 

8 S I 8 8 8 8 8 8 t 8 8 8 8 8 8 8 8 8 8 {{ 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 S 8 8 8 8 6 8 8 8 8 8 8 8 8 1 1 8 8 8 8 8 8 8 8 

leave checksum blank 

9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 3 9 9 9 9 9 9 9 9 9 9 9 9 3 919 9 9 8 9 9 9 9 



9||9999999999 



WdCnt 
999 99 



999 



first word address 
99999999999999 



t 2 3 4 9 E I • l10l112l3l4 1S1ttM119 20 312223 24 2S2S27282930 31323334353i37383l40 414243444S4l47 4l«SQ5t52S3MSSSi!!7SiSi«i1l2aMISKS7nM70 7t !73K7Snn7»niP 



Row 

9 



9 
8 

7 
7 
etc, 



Col. 
2,3 

14-18 
22-36 
Right 

1-72 

Left 
Right 



Must be punched 
Card word count (1 - 24g) 

Storage location relative to zero of first word (7 -left) 
Blank 

Relocation digits for 7Ld, 7 La, 7Rfe, 7Ra, 6Ld, etc. 
0- do not relocate, 10- relocate directly, 11- relocate inversely 
First word 
Second word 



MASTER IBM C.IRO^\YOUT 



FORTRAN ABSOLUTE BINARY INSTRUCTION OR DATA CARD 



Left 
Decrement 

OOOiOOOOOOOOOOQOOOO 



1 7 3 
t I 1 



000 

4 5 I 7 I I 10 U 12 IJ 14 15 18 17 II jig 20 21 

1 1 1 



2 2 2|2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
33 31333 33 33 33333333 
44 4j4 44444444444444 
5 5 515 5 5 5 5 5 5 5 5 5 5 5 5 5 5 
66S|5666S66P6 66 66 6S 
7I7P77777777777777 
8 881188888 88^88 8 8 88 



"Wd Cnt 



SdSS99S9S999999999999 9 99999999939399 



222 
333 
444 
555 
666 
777 
888 



Left 
Address 

Q Oi 

;B23242526272«2S30 3IS33343S3e n3838 
111111111111111111 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

3 3 3 3 3 3 3 3 3 3 3 3 3 3 3|3 3 3 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

5 5 5 5 5 5 5 5 5 5 5 5 5 5 515 5 5 

6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 



n 7 7 7 7 7 7 7 7 7 7 7 7 7 

"V^ord 
8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 



first word address 



OOOOOOOOOiOOOOO 

40 4l42 434(454i474«48S0 51S2S354 
111111111111111 



22 22 222 222 222 2222 2 
3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
444444444 4 44444 
5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 

IB66666666666 6 66666 



177 717 77777777? 777 77 
Second 
8 8J888 8 8 8 8 8 8 8 8 8 8 8 8 
leave 



1 I I 4 5 • I 9 I 10 11 12 13 14 15 IS 17 18 19 20 21 22 23 24 25 26 27 2» 23 X 31 32 33 34 35 3B n a 3 « 41 C 43 44 45 



checksum 



000 

BSe57 

1 1 1 
222 
333 
444 
555 
666 
777 
888 



000008000000000 



^Sfiei1t2OI4eKf7Bn70 7inr3 74 7S7in7l7ll0 



111111111111111 



22222222222222222222222 
333333333333333133333333 
444444444444444(4444444 
55555555555 5 555 5 555 5555 
86 66 5 66 66 66 6 6 6616 66 86 6 66 

7 7 7 7 7 7 7 7 



777777777777777 

Word 
II 8 8 8 8 8 8 8 8 8 8 8 8 8 8||8 8 8 8 8 8 8 8 
blank 



11111111 



0000000 



99Sd99999999999999999 9 99999999999999 



46 47 4a4lt50SlS2S3S4 55»57»9ll|81l2ai4KKf7nn7B7l7]73747S7l777l7IM 



Row 



9 

8 
8 
etc. 



Col. 

3 

14-18 
22-36 
Right 
Left 
Right 



99999999 



Must be punched 

Card word count (l-26g) 

Absolute storage location of first word {8- left) 

Blank 

First word 

Second word 



-1- 



FORTRAN MODIFICATIONS/ BOOLEAN EXPRESSIONS 



I. Description of Boolean Statement 

FORTRAN will now accept Boolean statements. A Boolean 
statement is in the same form as an arithmetic statement, 
with the arithmetic operators f , *, and unary - taken to be 
the logical operators or, and, and complement. The oper- 
ator * has greater binding. strength than the operator +. 



Because - is a unary operator it is part of the expression 
or symbol to which it applies . Therefore it must be bound 
to its expression or symbol by parentheses, with one ex- 



ception 



If E is a variable or function name the comiplement 
can be written as - E when it is not part of a larger 
expression in the same statement. C = -E is correct, 
but C ~ - E + D is not correct. When E is part of 
a larger expression it must be written as ( - E) . 
Thus, the latter expression must be written as 
C ^ (-E)-}-D. 



Example 1 . * 

D - A BVJc would be written in FORTRAN as 
D r A * (- (B f C)) 

The inner pair of parentheses is required to indicate 
the scope of complementation. The outer pair of 
parentheses is required because the expression, - (B + C) 
is a part of a larger expression. 



*The use of a Boolean statement in a complete FORTRAN 
problem is illustrated in FORTRAN MODIFICATIONS/ 
MACHINE LANGUAGE write-up. Appendix I. 
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Example 2 . 

D ^ IMPF (B, C) is written as 
D = -IMPF (-B, -C) 

No additional parentheses are required here because the 
function name as well as the argument names are not 
parts of a larger expression. 



II. Use of Boolean statements. 



1 . A Boolean statement in FORTRAN requires a "B" 
in card column 1 . 

2 ^^1 ''^''^ T^i ^ i^l<^ g ■5'^ ^ "'^oole^'T. ° ta^'*r''i**n''' ''nu°^ h^^'^ 
FORTRAN floating point names . 

3. Variable names can be subscripted in the normal 
FORTRAN manner . 

4. All Boolean operations are performed upon the 
full 36 bit logical word. 

5. Table size limitations, such as for Lambda and Alpha 
tables , apply in exactly the same way as for arithmetic 
statements . 



FORTRAN MODIFICATIONS /FUNCTION AND SUBROUTINE NAMES 
AS ARGUMENTS 



Fortran will accept Function and Subroutine names as arguments 
in other subroutines. Thus: 

Example 1. SUBROUTINE BOB (DUMMY, Y) 

A^DUMMYF(Y) 

will permit the Dummy function to be different depending upon the 
arguments specified in the call statements. Thus: 

Example 2. CALL BOB (SIN, S) 

CALL BOB (COS, S) 

will result in placing the Sin(S) and the Cos(S) in cell A respectively. 

In order to distinguish between the data name and the function 
name in an argument list; an F card is required to list these sub- 
routine names used as arguments. Thus for example 2, the F card is: 

col. 1 7 

F sm, COS 

Note: If a subroutine name requires a terminal *F' when occuring 
within an arithmetic statement then the dummy name must also have the 
terminal 'F'. This terminal 'F' must be dropped from the name whenever 
it occurs in an F card list or as the argument of a Call or Subroutine 
statement. The F card must be in the program containing the CALL 
statement and may appear anywhere in the deck. 



IBM Applied Programming 
November 1959- 
Page 1 



FORTRAN MODIFICATIONS/ ADDITIONAL FORMAT FEATURES 

Format facilities have been expanded, in*the new Input -Output 
Hollerith Routine (lOH), as follows: 

1. The control character X; written: nX, where -^n ^120. 

a) lOH, on input, will interpret this to mean that the fol- 
lowing n characters of input should be skipped. 

e , g , : READ 1 , K, A 

1 FORMAT (12X, 12, 8X, F8.3) 

This will cause cols. 1-12 to be skipped, cols. 13-14 (K) to be 
read, cols. 15-22 to be skipped, and cols. 23-30 (A) to be read. 

b) lOH, on output, will interpret this to mean that the fol- 
lowing n characters of output should be blanks. 

e.g.: PRINT 1, K, A 

(1 as in the above example) 

This will print K, preceded by 12 blanks, and A, preceded by 8 
blanks . 

2. The control character O; written: nOw, where 0^n*w ^120. 

a) lOH, on input, will interpret this to mean that the fol- 
lowing n successive fields of w characters each are to be conver- 
ted from octal to binary. If w is greater than 12, only the 12 right- 
most characters will be significant. If w is less than 12, the num- 
ber will be right-adjusted and fiUed out with zeros. Leading blanks 
will be treated as zeros. 

e.g.: tS.£^AlJ 1, A, JD, V-f 

1 FORMAT <20i5, 09) 

Where A is 27, punched in cols. 14-15, preceded by 13 blanks; B 
is 777777777777, preceded by 3 blanks; and C is - 12345, preceded 
by 3 blanks; then, in memory A will be: OOOOOOOOOOZTg, B will be 
7777777777778, and C: 4000000123458. 



Page 2 

FORTRAN MODIFICATIONS/ADDITIONAL FORMAT FEATURES 

b) lOH, on output, will interpret this to mean that the fol- 
lowing n successive fields of w characters each of output are to be 
the result of conversion from binary to octal. If w exceeds 12, the 
excess will be blanks, and the result will be right-adjusted. If w 
is less than 12, only the w rightmost digits will be significant. 
Lreading zeros will be converted to blanks, and the number will be 
signed if negative. However, 12 or more significant digits will be 
unsigned. 

e.g.: PRINT 1, A, B, C 

(1 as in the above example with same data) 

This would print 27 preceded by 13 blanks, 777777777777 prece- 
ded by 3 blanks, and » 12345 preceded by 3 blanks. 

3. The control character A; writtenrnAw, where 0^ n*w ±^ 120. 

a) lOH, on input, will interpret this to mean that the fol- 
lowing n successive fields of w characters each are to be stored in 
memory as BG0 information. If w is greater than 6, only the 6 
rightmost characters will be significant. If w is less than 6, the 
characters will be left-^adjusted, and the word filled out with blanks, 

e.g.: READl, (RECORD (I), 1= 1, 13) 

1 FORMAT (11 A6, A4, 02) 

This would result in the first 70 characters of the card being stored 
in the first 12 words associated with the array "RECORD". The 
last 2 characters of the 12th word would be blanks. Characters 71 
and 72 would be converted from octal to binary and stored right- 
adjusted in the 13th word. An appropriate Dimension entry must 
have been made for "RECORD". 

b) lOH, on output, will interpret this to mean that the fol- 
lowing n successive fields of w characters each of output are to be 
the result of transmission from memory without conversion. If w 
exceeds 6, only 6 characters of output will be transmitted, preced- 
ed by w-6 blanks. If w is less than 6, the w leftmost characters of 
the word will be transmitted. 
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FORTRAN MODIFICATIONS/ AD DITIONAL FORMAT FEATURES 

4. Format Statements read in at object time. 

FORTRAN will accept a variable Format address. This 
provides the facility of describing a List at object time. 

e . g . : DIMENSION F MT ( 1 2) 

FORMAT (12A6) 
READ 1, (FMT (I), 1=1, 12) 
READ FMT, A, B, (C (I), I = 1, S) 

Thus A, B, and C would be converted and stored according to the 
■«-_-»«* e-.^^<«^a+4on read i"*« the arrav. FMT. at object time. 



IBM Applied Programming 
January I960 



FORTRAN MODIFICATIONS/MACHINE LANGUAGE INSTRUCTIONS 

IN FORTRAN PROGRAMS 



'P^^af^. 



I. Machine Language Codes 

II. Coding Rules 

III. Optimizing Programs 

IV. Additional Information 



Appendix 1 . Example of program using machine 

language and Boolean statement. 



Appendix 2. List of Fortran Machine Language In- 

structions . 20 
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A 704 FORTRAN program may now include machine -language code among 
its instructions. This code, which is in Share Mnemonics, must be con- 
sidered part of a FORTRAN program, and is therefore subject to restric- 
tions that do not apply when the code only is prepared for an assembly. 
These restrictions primarily are (1) a slight limitation on instructions 
available, (2) certain rules for specifying subscript values, and (3) main- 
tenance of some instruction sequences with respect to transfer instructions. 

I. These codes may be divided into machine instructions and pseudo-ops. 

A. Format for a FORTRAN machine instruction. 

Col. 1 2-5 7--- 72 

S Statement No. Instruction 

Instruction: 

Operation - (a) Machine language code (listed in Appendix II) 
(b) Pseudo-op (listed in B below.) 

Address - (a) A statement number, preceded by an asterisk. 

(b) A positive decimal integer . 

(c) A variable name, subscripted or unsubscripted. 

Tag - A symbolic tag name . This will always be a fixed 

point variable, with no coefficient or addend. It 
must be enclosed in parentheses . This field may 
be used for shift, read, write and non-indexable 
instructions . (With caution, it may be used with 
certain other indexable instructions. See IV, A 
below.) 

Decremient-A signed or unsigned decimal integer. If negative, 
the complement will be used. 

-lvT_i.j:__ iT-_x. i1 U-, ^^ -^^f^^^^^^ 1-^ -,,, -lUortlnfo 

INUtltJfc; HiclL LUCXC l-cl.ll UC J.1W J. cxci Cii^-C VKJ a-Xi. a. w o w j. «jl u .^ 

storage location in the address field or to an absolute 
index register in the tag field. As in all FORTRAN 
instructions, blanks are ignored. The fields of an 
operation must be separated by comimas . When a 
blank field is followed by a non-blank field, the blank 
field must have a comma after it; a zero may occupy 
a blank field. 
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Examples of FORTRAN machine instructions: 



TRA'"!^25 


TXL*25,,4 


STA*13 


RTB6,(I) 


RQL 27 


LiBT 


PXD,(I) 


LXAINDEX,(I) 


ORS A(I) 


PXDO ,(I) 


TXH*25 , (I) , 1 


ETT 


CLAA(I+3,2*J,5*K-1) 







B. There are three pseudo-ops that may be used in a FORTRAN program. 
These define program vatiables . 

Format for pseudo-operation. 

Cols. 1 2-5 7 72 

S FORTRAN variable name Constant 

Instructions(Pseudo-ops): 

DEC: Any signed or unsigned fixed or floating-point number 

conforming to the FORTRAN specifications of constants . 
If the number is fixed point, it is stored in the decrement 
field of the word. 

OCT: A string of from 1-12 octal digits. This octal number is 

unsigned; the sign must be made part of the number. These 
octal digits are right-adjusted in the storage word. 

ALF: A string of 6 alphanumeric characters. In this case ordy, 
a strict card format must be adhered to. This is because 
blanks may be taken as alphanumeric characters. The 
Operation must be in columns 7-9; the six alphanumeric 
characters will be taken from columns 13-18. 



Examples of FORTRAN Pseudo-ops . 



IZ DEC 23 

ALFbbbROBE RT 
DEC 68.924 E f 8 



MR OCT 4637021 
PT TiW. r. ^ 1 4 1 A 



The FORTRAN pseudo-op instructions must precede any executable 
statennent of the problem, including the Arithmetic Statement functions . 
It should be noted from the above description that it is possible to 
associate a floating point nunnber with a fixed point variable name and 
vice -versa. It is advisable not to do this as it can easily lead to errors; 
for example, if the variable is used in an arithmetic statement. 



II Coding Rules . 

A. Relative Constants. 



A relative constant is a subscript symbol not under control 
of a DO. As pointed out in the FORTRAN Reference Manual, 
a relative constant must receive explicit definition. Within 
the context of a single problem this definition is provided 
by two means: (a) appearance on the left side of an arithmetic 
statement and (b) appearance in an input list. 

In using machine language it is necessary to provide instructions 
corresponding to (a) and (b) whether the relative constant itself 
appears in a machine instruction (e.g. CLA A(I)) or a normal 
FORTR.AN statement (e»g. B = A(I)). 

The following machine instructions serve to define a relative 

constant: 

STO, SXD, STD. SLQ, STQ, ORS, ANS, STZ, SLW, CPY, CAD 



Examples: 






(1) * 

« 


(2) , 


(3) . 


STQ i 

• 
» 
• 

SLW J 


« 

CPY I 

» 

TX1*5.{J),1 
SXD J, (J) 


STO J 

DO 10 I = 1,5 
LDQ A(I,J) 
10 SLQ B(I,J) 


CLA A (I, J) 


cla'a(i,j) 








(4) . (5) 

LXD K, (] 
SXD I, (I) 

CLA A( 3*1) 



CLA A(J) 
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These illustrations show: 

a. That all relative constants must be explicitly defined. In 
example (3) only "J" in the subscript combinations (I, J) is 
a relative constant. 

b. That this definition miust occur after any change of value of 
the Tag quantity, with one exception. 

c. That this exception is shown in example (5). Notice how the 
latter differs from examples (2) and (4). It does not have the 
defining machine instruction after the change of value of the 
Tag quantity . 

Rule: Where the relative constant subscript expression 

is one -dimensional and does not have a coefficient, 
the machine instruction providing explicit de- 
finition is not required. 

In example (2) the subscript expression is not one- 
dim.ensional and in example (4) it has a coefficient. 

B. The instruction "TSX" may not be used. It is suggested that the 
CALiL. statement be used when a transfer to a subroutine is re- 
quired. In addition, of course, such transfers may be obtained 
by function references in FORTRAN arithmetic statements. 

C. In the analysis FORTRAN makes of a program for optimization 
purposes, it expects to find certain instruction sequences at 
points where transfers occur. The machine language coding 
must conform to these sequences. 

1 , The CPY and CAD instructions must be used in one of the 
following ways: 

a. If a coTTv skip is anticipated CPY 

TR>A 
TRA 
TRA 

b. If a skip is not anticipated, then the 
copy instruction can be followed by 
any instruction except a TRA. 

2 . A skip type test instruction must be xoxxowed eitiier »-»y tw^o 
unconditional transfeTS or by none with the exception of the CAS 
which must be followed by three or by none. 
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D. Modification of Transfers . 

1. In order to assign index registers optimally, the FORTRAN 
executive system must know all paths taken by any transfers. 
Therefore, transfer instruction addresses must not be modi- 
fied by other instructions in the program. 

2. For a corresponding reason the machine language program 
must not modify the operation field of an instruction to change 
a non-transfer instruction into a transfer instruction. 

E. Instruction Format Requirements . 

1. All transfer instructions must have addresses which are 
statement nurabers in the program. 

2. Observe that MSE and PSE are missing from the instruction 
list (Appendix II) . The equivalent SHARE code should be 
used instead. 

3. Relative addressing is not permitted (e.g. CL.A Af2). 
Addends, of course, are permissible in subscript expressions 
(e.g. A(I+3) or A(2)) . 

4. To a limited extent, the programmer may insert constants 
into unused fields of instructions at source program time. 
The Appendix II chart indicates when this may be done. 

Ill Optimizing Programs . 

Certain practices, if observed, can result in more efficient FORTRAN 
programs with respect to indexing instructions . 

A. The DED instruction, Another pseudo-operation- -of an unique 

type--is available to programmers. The use of this pseudo- 
operation can reduce the number of LXD and SXD instructions 
FORTRAN must use. It is an instruction which informs the 

v» v^AAi.L^J.x ^^x i'Xxcirl^ C4. kj jr XA.ji»^ v^xx V' i^cxg TV XXX .ixv^v ■-# v> ^xuiv^vx hj txiK> fc:y \^\J vv-v^xxux y xx-l 

the program \without naving its vaxue reset xirst; anu. tiiat it 
is, therefore, dead. 

Example: 

S DED, (I) 

The DED instruction is non- executable and must not have 
a statement number . 
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B. Frequency Statements. Frequency statements may be applied 
to machine language transfers as well as to ordinary FORTRAN 
statements . 

1. Conditional transfers. Each such transfer instruction, re- 
gardless of how many appear in sequence, must have a 
different frequency statement entry. This means, of course, 
that each must have a statement number . 

2. Skip type transfers. An external statement number is 
associated with the test instruction and three frequency 
estimates are listed if it is a CAS and two if it is any other. 
These frequency estimates apply to the following instructions 
whether they be FORTRAN statements or machine operations . 

C. Paths of flow. As in FORTRAN programs generally, all executable 
instructions must have a path of flow leading to them. 

IV Additional Information. 

A. Where the indexable instruction addresses an array the symbolic 
tag may be used. Of course, this wixx rarexy ue necessary 
because merely subscripting the array refers to the proper ele- 
ment of the array. The danger in using the symbolic tag here 

is that it does not take into account the relative address which 
FORTRAN automatically supplies when a subscripted variable 
is referenced. To illustrate: 

CLA A, (I) and CLA A(I) 

are not equivalent. In the former case, the indexing is done 
from location A; in the latter, from location A + 1 . 

B. Under the following circumstances, the contents of the Accumulator 
and MQ will be destroyed. 

a. Execution of a FORTRAN or machine instruction transfers 
out of the range of a DO. 

b. Execution of one of the following machine instructions if the 
symbol in the address is an index of any subscript in the 
program not under control of a DO. 

STO, SXD, STD, SLQ, STQ, ORS, ANS, STZ, 
SLW, CPY, CAD 



c. Execution of the following FORTRAN staternents: 

Arithmetic 

Arithmetic IF 

ASSIGN 

Boolean 

CALL. 

DO 

All Input/ Output statemients 

RETURN 

C. Storage allocation can be done only by means of Common, 
Dimension, and Equivalence statements. 
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Appendix I. 

Example of program using machine language and Boolean statement. 

C Prograni to generate truth table of Boolean expression 

C in four variables VI, V2, V3, V4. 

DIMENSION V(4) 

EQUIVALENCE (VI, V(l)), (V2, V(2)), (V3, V(3)), (V4, V(4)) 

FREQUENCY 8(4,1) 
S CNT DEC 4 
S STZ IVARY 

DOlO I - 1, 16 



s 




LDQ IVARY 


s 




LLS 13 


s 




LXD CNT, (J) 


s 


5 


PXD 



S LLS 1 

S ALS 18 

S STO V(J) 

S 8 TIX^:^5, (J), 1 

B TVALUE ~ Vl*(-V2)t(-((V3tVl)(-(V3*-V2))))fV4 

•DO TAT T" -> l\T\ -XrO \r'i. XrA T-VAT TTTPV 

JT xvj.j.-'i J. f^ ) \ r X t vt->» *-*» vt:, xV x-».a_ivj xi«/ 

10 IVARY = IVARY 1 

STOP 77777 

2 FORMAT (6(5X11)) 

It should be noted that for Boolean output it is possible to use a fixed-point 
Format description for a floating-point variable name. If a full word fixed- 
point, octal or binary printout is desired, a FORTRAN II subroutine must 
be written. 
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APPFNDIX 2 

LIST OF FORTRAN KiACHINE LANGUAGE 
INSTRUCTIONS 



VARIABLE FIELD 
ADDRESS TAt. DEC 
EFN DAT NUM 

ACL NO YES NO YES NO 

ADD YES YES HO DAT NO 

ADM YES YES NO DAT NO 

ALS 

ANA 

ANS 

ARS 

BST 

CAD 

CAL 

CAS 

CFF 

CHS 

CLA 

CLM 

CLS 

COM 

CPY 

DCT 

oyn 

DVP 

E F i'^l 

E T I'l 

ETT 

FAD 

FDH 

Ff;P 

FMP 

FSB 

HPR 

HTR 

lOD 

LBT 

Li;A NO YES NO YES NO 

LDQ YES YES NO DAT NO 



NO 


NO 


YES 


YES 


NO 


NO 


YES 


NO 


YES 


NO 


NO 


YES 


NO 


YES 


NO 


NO 


HO 


YES 


YES 


NO 


NO 


NO 


YES 


YES 


NO 


YES 


YES 


NO 


YES 


NO 


1 U-J 


1 U.vJ 


1 f^ 


DAT 


NO 


NO 


YES 


NO 


YES 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


YES 


YES 


NO 


DAT 


NO 


NO 


NO 


NO 


NO 


NO 


YES 


YES 


NO 


DAT 


NO 


NO 


NO 


NO 


NO 


NO 


YES 


YES 


NO 


YES 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


YES 


HO 


YES 


NO 


NO 


YES 


NO 


YES 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


MO 


NO 


NO 


NO 


YES 


NO 


YES 


NO 


NO 


YES 


NO 


YES 


NO 


NO 


YES 


NO 


YES 


NO 


NO 


YES 


NO 


YES 


NO 


NO 


YES 


I.I. ("i 


YES 


NO 


YES 


YES 


YES 


YES 


NO 


REG 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 


NO 
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LFM 

LGL 

LLS 

LRS 

LTM 

LXA 

LXD 

MPR. 

MPY 

NOP 

ORA 

ORS 

PAX 

PBT 

PDX 

PXD 

RCD 

RDR 

RDS 

REW 

RNP 

RPR 

RQL 

RTB 

RTD 

RTT 

SBM 

SLF 

SLN 

SLQ 

SLT 

SLW 

SPR 

SPT 

SPU 

SSM 

SSP 

ST A 

STD 

STO 

STP 

STQ 

STZ 



VARIABLE FIELD 


1 


ADDRESS TAG DEC 


EFN DAT NUM 




NO NO NO NO 


NO 


Ho NO YES YES 


NO 


H§ NO YES YES 


NO 


m HO YES YES 


NO 


h^ Ho NO NO 


NO 


YES YES NO YiiS 


NO 


YES YES NO YES 


Ho 


NO YES NO YES 


NO 


NO YES NO YES 


NO 


YES YES YES YES 


NO 


NO YES NO YES 


NO 


NO YES NO YES 


NO 


YES YES YES YES 


NO 


NO NO NO NO 


NO 


YES YES YES YES 


NO 


YES YES YES YES 


NO 


NO NO NO NO 


NO 


NO NO YES YES 


NO 


NO NO YES YES 


NO 


NO NO YES YES 


NO 


NO ^HO NO NO 


NO 


NO NO NO NO 


NO 


NO NO YES YES 


NO 


NO NO YES YES 


NO 


NO NO YES YES 


NO 


NO NO NO NO 


NO 


YES YES NO DAT 


NO 


NO NO NO NO 


NO 


NO NO YES YES 


NO 


YES YES NO DAT 


NO 


NO NO YES YES 


NO 


NO YES NO YES 


NO 


NO NO YES YES 


NO 


NO NO NO NO 


NO 


NO NO YES YES 


NO 


NO NO NO NO 


NO 


NO NO NO NO 


NO 


YES YES NO DAT 


NO 


YES YES NO DAT 


NO 


NO YES NO Y.ES 


NO 


YES YES NO DAT 


NO 


NO YES NO YES 


NO 


NO YES NO YES 


NO 
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SUB 

SWT 

SXD 

TIX 

TLQ 

TNI 

TNO 

TNX 

TNZ 

TOV 

TPL 

TOO 

TOP 

TRA 

TTR 

TXH 

TXI 

TXL 

TZE 

UFA' 

UFiM 

UPS 

WDR 

WEF 

WPR 

WPU 

WRS 

WTB 

WTD 

WTS 

WTV 

ALF 

DEC 

OCT 

DED 



VARIAI 


.iLE FIELD 


ADDRES: 


:> TAG DEC 


EFN DAT i 


slUM 


YES '■ 


r'ES 


NO DAT NO 


NO 


NO ■ 


rES YES NO 


YES • 


tES 


NO YES NO 


REO 


NO 


NO YES YES 


REQ 


NO 


NO NO NO 


REQ 


NO 


NO NO NO 


REQ 


HO 


NO NO NO, 


REQ 


NO 


NO YES YES 


REQ 


NO 


NO NO NO 


REQ 


NO 


NO NO NO 


REQ 


NO 


NO NO NO 


REQ 


NO 


NO NO NO 


REQ 


NO 


NO NO NO 


REQ 


NO 


NO NO NO 


REQ 


NO 


no NO NO 


REQ 


fiO 


NO YES YES 


REQ 




I.I.-. \/ 1:: r v tr c 


REQ 


NO 


NO YES YES 


REQ 


NO 


NO NO NO 


NO 


YES 


NO YES NO 


NO 


YES 


NO YES NO 


NO 


YES 


NO YES NO 


NO 


NO 


YES YES NO 


NO 


NO 


^ES YES NO 


NO 


NO 


NO NO NO 


NO 


NO 


NO NO NO 


NO 


NO 


YES YES NO 


NO 


NO 


YES YES NO 


NO 


NO 


YES YES NO 


NO 


NO 


YES YLS NO 


NO 


NO 


f^O luj riO 


p: 


SEUDOOPERAIiON 


P: 


SEUDOOPERATION 


P: 


SEUDOOPERATiON 


T, 


H G f ■' 


I ELD Oia.Y 



FORTRAN PROGRAM CARDS 



In preparing a SAP coded program for use with a FORTRAN program 
the relocatable binary deck must be preceded by a "program card". The 
simplest way to prepare this card is to have the assembler punch it for you 
during the assembly process. This may be done with a program arranged 
like the following example , 

REM (program identification) 

FUL 

9L FOR 0,,END-1 (program card word count) 

9R PZE (leave checksum blank) 

8L PZE (last program location + 1) , / (number of words in transfer list) 

8R PZE -N-205 (where N is the number of common used) 

7L BCD INAMEl (FORTRAN name assigned to first entry point) 

7R PZE ENTRYl (SAP symbolic address of first entry point) 

* • • 

BCD INAMEN (FORTRAN name assigned to last entry point) 

END PZE ENTRYN (SAP symbolic address of last entry point) 

REL 

ORG 

COMMON SYN^ -N-205 (whera N is the number of common used) 

SAP Program 

END 

After assembly the transfer card should be removed from the back 
of the relocatable binary deck. This deck may now be loaded as part of 
your FORTRAN object deck. It may also be written on the FORTRAN library 
tape if the program card check sum is first corrected. 
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